Univers Mac Interactif 42/Univers Mac Interactif - Issue 42.iso/>interactif/Démos Voyager/PAWS.DIR/00031_Script_31

Text File | 1994-10-18 | 546b | 35 lines

on startmovie
  unloadcast
  cursor 200
end

on enterframe
  cursor 200
end

on waitQT chan
  if the MovieRate of sprite chan = 1 then go the frame
end

on waitSound chan
  if soundbusy(chan) then go the frame
end

on QTvolume chan, theLevel
  set the volume of sprite chan to theLevel
end

on waiting theTicks
  --must be preceded by startTimer
  if theTicks >= the timer then go the frame
end

on KeyDown
  global autoplaying
  put 0 into autoplaying
  sound stop 1
  sound stop 2
  unloadcast
  play done
end